with Ada.Text_Io; use Ada.Text_Io;
with Dictionnaires;

procedure Test_Dico_Hash_Bete is

   Taille: constant Positive := 5;

   function Hash_Bete(Mot: String) return Natural is
   begin
      return Character'Pos(Mot(Mot'First));
   end Hash_Bete;


   package Dico_Hash_Bete is new Dictionnaires(Taille, False, Hash_Bete);

   Fich: File_Type; -- fichier de test contenant un dictionnaire
   -- dictionnaire :
   Dhb: Dico_Hash_Bete.Dictionnaire := Dico_Hash_Bete.Cree_Dico;
begin

   declare -- un nouveau bloc
         S: String := "dico_gros.txt";
   begin
      Open(Fich, In_File, S);
   exception
      when Name_Error => Put_Line("fichier inexistant !"); return;
   end;

   -- remplissage du dictionnaire
   Dico_Hash_Bete.Remplit_Dico(Fich, Dhb);

   -- statistiques de dispersion sur ces dictionnaires
   Ada.Text_Io.New_Line;
   Dico_Hash_Bete.Dispersion(Dhb);


   -- fermeture du fichier test
   Close(Fich);

end Test_Dico_Hash_Bete;
